home *** CD-ROM | disk | FTP | other *** search
/ CD Exchange / CD Exchange - Volume 1.iso / utils / misc / siod / scm / imper.scm < prev    next >
Encoding:
Text File  |  1993-02-22  |  270 b   |  12 lines
  1. (define (fib n)
  2.         (do ((a 0 b)
  3.              (b 1 (+ a b))
  4.              (c n (- c 1)))
  5.             ((= c 0) a)))
  6.  
  7. (define (map2 f l)
  8.         (do ((l1 l (cdr l1))
  9.              (l2 '() (cons (f (car l1))
  10.                            l2)))
  11.             ((null? l1) l2)))
  12.